﻿Imports System.Windows.Media.Imaging

Namespace Utility
    Public Module ImageHelper
        Public Function SetSource(uri As String, Optional rk As UriKind = UriKind.Relative) As ImageSource
            Dim bit As New BitmapImage
            bit.UriSource = New Uri(uri, rk)
            Return bit
        End Function
    End Module
End Namespace